The views, conclusions, or recommendations expressed in this document do not neces- 
sarily reflect the official views or policies of agencies of the United States Government. 
This document was produced by SDC in performance of contract 
\ ? 19(628)-5l66 with the Electronic Systems Division, Air Force 
'Systems Command, in performance of ARPA Order ^ — ^ 773 for the 
Advanced Research Projects Agency Information 
Processing Techniques Office. 

fft\ 



TO 



1EI 




Vy/ a working paper 
System Development Corporation/ 2500 Colorado Ave. /Santa Monica, California 90406 

A Higher-Level Machine-Oriented Language 
as an Alternative to Assembly Language 



T 



3086/001/00 

AUTHOR E. Book &/&**& 



D. V. Schorre Sx^nu 



10 

HEIE.SE <,£*£&&&&. 



for 



J» I. Schwartz 



°* TE a/lg/66 mt 1 Qf-gSL-^a 



(page 2 blank) 



ABSTRACT 

This paper explains our concept of a higher-level 
machine-oriented language and illustrates it in 
detail with a description of MOL-32, which is such 
a language for the Q-32. A compiler for this lang- 
uage has been implemented and is being used in our 
research to write library routines for the META 
compiler; the MOL-32 compiler will not be released 
for general use* 
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1. INTRODUCTION 

This document is not intended as a user's manual but rather as an explana- 
tion of a part of the work done in extending META compiler techniques. In 
a higher-level machine-oriented language, the operations and types of data 
are the same as those of the machine, but the format of the language is 
similar to that for a procedural compiler language, such as ALGOL or JOVIAL. 
Henceforth, machine-oriented language is referred to as MOL. Arithmetic 
calculations are written in the form of assignment statements. The flow 
of control is handled by Boolean expressions together with if statements , 
for statements , and loop statements * Direct code is allowed to give the 
user complete control over the machine. 

The reason for using assembly language, as opposed to a machine-independent 
language, is that (l) the efficiency of the resultant program is of prime 
importance and (2) the program cannot be expressed naturally in a machine- 
independent language, to wit, recursive subroutines in JOVIAL or fixed- 
point arithmetic in FORTRAN. 

Most of the programming which is now being done in assembly language could 
be done in a higher-level MOL. At present we are using MOL-32 to write 
library routines rather than entire programs. Since the purpose of these 
routines is to store and retrieve information in a manner that is efficient 
for the Q-32, they could not have been implemented in a machine-independent 
language. This means parts of the syntax of MOL-n would be changed if it 
were implemented for computer m. 
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2. DESCRIPTION OF MQL-32 

A program written in MOL-32 consists of a declaration followed by a sequence 
of procedures and ended by the word .STOP. Blanks are ignored, except within 
strings. Let us get the flavor of the language by examining a sample procedure* 
The gmrpoB« ef the yroetAurt ihown id figure. X in %p ?§&& * lim t*m %%i*%f$% 
and to unpack it into an area specified as a parameter. A flow chart is given 
to assist in explanation. In actual practice, flow charts are unnecessary, 
because the flow of control is graphically expressed by conventions of inden- 
tation. 

In the procedure shown in Figure 1, there are several reserved words. These 
words are listed below: 

.LOCAL .EXIT .FOR .THEN .IF 

•FROM .END .RETURN .ELSE 

All reserved words of the language begin with a period so that the user does 
not have to worry if he is using a reserved word for one of his identifiers. 
This is especially important because we are continually adding new reserved 
words to the language. 

2.1 SUBROUTINE LINKAGE 

Parameters are passed to subroutines by means of a calling sequence. This 
means that parameters are supplied in consecutive words after the instruction 
that branches to the subroutine. Usually these parameters are addresses which 
are set up at compile time. The subroutine being called uses these addresses 
to obtain a value or as a location into which to store a value. Literal in- 
tegers are also passed by putting them directly in the calling sequence. 
Another type of parameter which is often passed to a subroutine is a string. 
This consists of one word containing the number of characters in the string, 
followed by the characters of the string packed eight per word. Actually, any 
type of data can be put in a calling sequence so long as the routine being 
called has instructions to pick it up correctly. 

Now look at Figure 1. The name of this procedure is TTYIN. It has one para- 
meter, which is the address of the first word of a 72-word block into which the 
typed line is to be read, one character per word in the rightmost byte. A 
future version of MOL-32 will allow the names of formal parameters to be writ- 
ten within the parentheses which follow the name of the procedure being defined. 
The current compiler requires the user to write instructions to pick up these 
parameters. In Figure 1A these instructions appear in line 3U. 



ro 

? 

OB 

VO 
ON 
ON 



31 TTYINO: .LOCAL BUFU0>/> AREA* T# 

32 ITLTY : = <'META 16TNSTAT00MOVE 66TELTYP INPUT 4 C0REIX1', 

33 #BUF)* ■ * " 

34 AREA := CEXIT3* .EXIT S = .EXIT-MJ 

35 SPEAKC")* <LDA <ITLTY>R* BUC 202*> 

36 SI := AREAJ $J := #BUF* 

37 AR1 := AREA ♦ 72* EXPLODEXO* T : = 0* 

38 .FOR SI .TO 71 1 

39 .IF T = 

40 .THEN .IF CAREA+SIJ = 63 

41 .THEN T :=..1J CAREA+SIJ := •■ 'JT.END 

42 .ELSE EAREA+SI3 := • *l .END .END 

43 .RETURN 



Figure 1A. A procedure in MQL-32 which reads a line 
from the teletype and unpacks it into an 
area specified as a parameter,. 
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Figure IB. A flow chart of the procedure to assist in 
explanation of the language. In actual 
practice, flow charts are unnecessary because 
the flow of control is graphically expressed 
by conventions of indentation. 
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2.2 THE ASSIGNMENT STATEMENT 

The colon-equal (:=) is used in the assignment statement , just as in ALGOL. 
JOVIAL uses a single equal sign ( = ) for assignment, hut we are using the equal 
sign for the relational operator which JOVIAL calls EQ. In line 3k of Figure 
1A the word AREA is a local variable into which the parameter is stored. The 
square brackets around .KXIf indicate indirect addressing. The second assign- 
ment statement in line 3** adds one to the exit address so that control returns 
to the first word beyond the parameter. 

In the current version of MOL-32 parentheses are not allowed within the expres- 
sion on the right side of the assignment statement . All operations are performed 
from left to right without regard for precedence of operators. This simplifi- 
cation was made so that the compiler would not have to allocate temporary 
storage . A future version of MOL-32 will allow parentheses and follow the usual 
conventions for precedence of operators. 

i«l BILAEIVSS ADDB1SSIHG AND IHDIRICT ADDRESSING 

An Identifier followed by an expression enclosed in square brackets ( t 1 ) refers 
to a word whose address is obtained by adding the value of the expression to the 
address assigned to the identifier. For example, if AREA has been assigned the 
address U050, then 

AREA [25] := X; 

means to store the contents of X into location U075» Any legal arithmetic 
expression can occur between the square brackets. 

An expression enclosed in square brackets but not preceded by an identifier 
indicates indirect addressing. For example, 

X := [Y] ; 

means to store the contents of the contents of location Y into location X. Any 
legal arithmetic expression can occur between the square brackets. Two levels 
of indirect addressing are shown in the example below: 

X :- [[Y]] ; 

2.U THE LOCAL DECLARATION 

Now consider the local declaration which begins on line 31 of Figure 1A. The 
entries of the declaration are separated with commas ( , ) ; the declaration ends 
with a semicolon (;) on line 33. The first entry reserves a block of ten words, 
where BUF is the address of the first word. The second entry reserves one word 
to be called AREA, and the third reserves a word to be called T. Remember that 
we previously saw the identifier AREA in an assignment statement. The fourth 
and last entry says that ITLTY is the address of the first word of a block of 
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preasaigned data. In a declaration, the colon-equal indicates preassigned data, 
whereas in the body of a procedure it indicates an assignment statement. The 
open parenthesis after the colon-equal indicates that more than one piece of 
preassigned data is to he given. The first piece of data is a long string of 
characters enclosed by single quotes. This is stored eight characters per word, 
and the last word is filled in with blanks on the right. The second piece of 
data is an address constant, #BUF, which is a word that contains the address of 
BUF in its address part. A programmer familiar with the Q-32 may recognize the 
preassigned data as a more call for the teletype. 

Line 35 contains a call to the subroutine SPEAK. One argument is given to the 
subroutine, and this argument is a string consisting only of the single character 
bell . You cannot see this character in the listing, but you can hear it as the 
listing is being typed out. Usually one can see the characters inside a string, 
so it is especially unfortunate that this situation occurred in a procedure 
chosen for an example. The purpose of the procedure SPEAK is to print the given 
<3b,§racter ftr|n§ on the teletype or, as in this case , to ring the teletype bell, 

2.5 DIRECT CODE 

Direct code can be written between angle brackets (< and >). A programmer 
familiar with the Q-32 may recognize the code on line 35 of Figure 1A as a call 
to the system to read from the teletype. 

2.6 INDEX REGISTERS 

Index registers 1-6 are referred to directly as $1 through $N. On lines 36 and 
37 of Figure 1A, index registers 1 and 2, as well as the global variable AR1, 
are initialized before entry to the subroutine EXPLODEX. This routine unpacks 
the characters just read from the teletype and stores them in the block specified 
as parameter for TTYIN. Then the end of message character is removed, and the 
rest of the block filled with blanks. 

2.7 THE FOR STATEMENT 

The rest of the procedure can be understood if the for statement and the if 
statement are explained. The for statement is used to specify an indexed 
loop. All statements within the loop are indented. In Figure 1, the scope of 
the for statement continues to the end of the procedure , so that every statement 
is indented up to the reserved word .RETURN. Standard conventions for indenting 
should be followed by all programmers using MOL-32 so that the flow of control 
within a program can be recognized at a glance. The compiler ingores indentation, 
and considers the for statement to be terminated by the reserved word .END. The 
last .END on line k2 terminates the for statement . The other occurrence of .END 
on line. 1*2 terminates an if statement , which is inside the for statement. 
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The general form of the for statement is given below: 



$1 
i$J / \ .TO 



.FOR 



.FROMV <expression> 



< sequence of statement s> .END 



The index always ranges from through the value of the expression; thus, the 
number of times the program goes through the loop is one greater than the value 
of the expression. When the value of the expression is 0, the loop is executed 
only once; when the value is negative, the instructions within the loop are not 
executed at all. Thus, index registers either start at and are incremented by 
1 up to the value of the expression, or start at the value of the expression and 
go down to 0. This is determined by the use of the words .TO and •FROM, respec- 
tively. 

2.8 THE IF STATEMENT 

The i£ statement has two basic forms, both of which are illustrated in Figure 1. 
The first form allows either of two sequences of statements to be executed, 
depending upon the value of a Boolean expression. Both sequences of statements 
are indented. The first sequence of statements begins with the reserved word 
.THEN; the second sequence begins with the reserved word .ELSE. The words 
.THEN and .ELSE are written at the same level of indentation, to indicate a 
parallel in the flow of control. The compiler ignores indentation, and considers 
the if statement to be terminated by the reserved word .END. The next to last 
.END on line k2 of Figure 1A terminates the if statement which begins on line 39. 
The .END on line kl terminates another i£ statement which is inside this if 
statement . 

The second form of the i£ statement allows for the optional execution of a 
sequence of statements. It is identical to the other form except that the else 
clause is omitted. The innermost if statement of the example, which begins on 
line 1*0, is of this form. The .END on line kl terminates this statement. Notice 
that line kl is indented five spaces from the beginning of line U0, and not five 
spaces from the occurrence of .IF on line UO. c 
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The forms of tW if statement may be summarized in meta-language as follows: 

1. .IF <Boolean expression> 

.THEN < sequence of statement s> 
♦ELSE <sequence of statements> .END 

2. .IF <Boolean express ion> 

•THEN <sequence of statements> .END 

2.9 BOOLEAN EXPRESSIONS 

Now consider what is allowed in a Boolean expression. The. relational operators 
are as follows: 

Relation Operator Meaning 

«■■ equal , full word 

■/« unequal, full word 

* equal, numerical 

/« unequal, numerical 

< less than, numerical 

> greater than, numerical 

<» less than or equal, numerical 

>= greater than or equal, numerical 

The reason for distinguishing between full word comparisons and numerical 
comparisions is that on the Q-32, +0 is different from -0. 

There are two Boolean operators, .A. for and and .V. for or. Unlike arithmetic 
expressions, Boolean expressions may contain parentheses for grouping. The 
operator .A. takes precedence over .V. 

Identifiers are not allowed to take on Boolean values; in other words, the 
operators .A. and .V. always connect relational expressions, never identifiers. 
Neither do we allow the Boolean operator pot , but the effect of this operator 
can be obtained by using the appropriate relational operators. 

2.10 THE LOOP STATEMENT 

The procedure EXPLODEX, which is shown in Figure 2, contains an example of a 
loop statement , which was not illustrated in Figure 1. The general form of 
this statement is: 

.LOOP WHILE <Boolean expression : 
<sequence of statements > .END 
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176 


EXPLODEXO* 


177 


•LOOP WHILE $1 < AR1 : 


178 


C$13 :* C$J3-0J 


179 


CSI + 1 3 :* C$J3 .11 


180 


C$I+23 1 = CSJ3.2I 


181 


CSI+33 J = CSJ3.3I 


18? 


CSI+43 ?* CSJ3.4J 


183 


CSI+53 : = CSJ3.5; 


184 


CSI+63 := CSJ3.6I 


185 


CSI+73 := CSJ3.7J 


186 


$1 8= $1+81 $J i 


187 


•RETURN 



a $J+W «END 



Figure 2. A procedure in M0L-32 to unpack characters. 

Before entry to this procedure, the arguments 
are set up in index registers 1 and 2 ($1 and 
$J) and in the global variable AR1. 
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The meaning of the "loop statement" is that the sequence of statements is to 

be executed as long as the Boolean expression is true. If the Boolean expression 

is false to begin with, the sequence of statements is never executed. 

2.11 REFERENCING PART OF A WORD 

In procedure EXPLODE, you can see the way of referring to parts of words. Fo* 
example, [$J].0 on line 178 means the left-most byte of the word whose address 
is in index register 2. The computer word is divided into eight character-bytes, 
referred to as .0, .1, .2, ..., and .7, and into four other parts, referred to 
as prefix, decrement, tag, and address, referred to, as .P, .D, .T, and .A, 
respectively. These may be used on either side of the colon-equal (:«) as 
illustrated in the following example: 

A [B.D] .P:*C5; 

which stores the fifth character of the word whose address is C into the prefix of 
the word whose address is obtained by adding the address of A to the decrement 
of the word whose address is B. 

2.12 DECLARATION BEGINNING A PROGRAM 

Most of the features of the language that are used within procedures have been 
illustrated. The declaration that begins the source program has the same form 
as the local declaration within individual procedures, except that it begins 
with .DECLARE instead of .LOCAL. 

2.13 THE GO STATEMENT 

Statement labels and go statements are included in M0L-32 , although they are 
seldom used. The statement label consists of an identifier followed by a colon 
( :); the go statement consists of the reserved word .GO followed by an expression 
(such as a statement label ) which evaluates to the address of some instruction. 
A future version of MOL-32 will include a case statement which will handle 
situations presently requiring a computed go statement . In some cases a pro- 
cedure can be made more efficient by using direct go statements , but this 
practice is not recommended because the flow of control will not be indicated 
by the indentation conventions. 

2.1** THE ASSEMBLER 

Figure 3 shows the SCAMP-like assembly language that is produced for the pro- 
cedures shown in Figures 1 and 2. Most compilers generate statement labels 
which the assembler puts in a symbol table along with the identifiers in the 
source program. Instead of generating statement labels, the META SCAMP compiler ' 
turns out the labels *A and *B as well as the pseudo-instructions PSHA, POPA, 
PSHB, and POPB, which manage two stacks at assembly time. The pseudo-instructions 
PSHA and POPA serve as brackets so that *A is assigned the same address within 
their range. Similarly, the assignment of *B is done within the range of PSHB 
and POPB. We have drawn lines on the listing in Figure 3 in order to clarify 
this bracketing convention. 
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TTY1N 





SBR 






£TP*567#7 
PSHA 


EXIT 








BUC 


*A 


BUF 








BLK 


10 


AREA 


BLK 1 




T 


BLK 1 




ITLTY 








C'META 16TNSTAT00MOVE 66TELTYP 




(BUF)R 




*A 








POPA 






LDA, 567*7 


EXIT* I 




STA 


AREA 




LDA, 567*7 


EXIT 




ADD*567*7*S 


CI )R 




STA, 567*7 


EXIT 




BUC 


SPEAK 




(1 ) 






( • ') 






LDA (ITLTY)R 






BUC 202 






LDA 


AREA 




STA*567*7*S 


$X1 




LDA*567*7*S 


<BUF)R 




STA*567*7*S 


$X2 




LDA 


AREA 




ADD*567*7*S 


(72)R 




STA 


AR1 




BUC 


EXPLODEX 




LDA*567#7*S 


C0)R 




STA 


T 



INPUT 4 COREIX1 ')R 



Figure 3. The procedures of Figures 1 and 2 are shown 
here in assembly language. Book's version 
of SCAMP. 
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_LDX#1 



C0)R 





PSHA 








♦A 












PSHA 








LDA 


T 








5UB,567#7#S 


<0>R 








BNZ 


*A 








PSHH 








*B 
























PSHA 










LDA 


AREA 










ADD*567*7#S 


SX1 










LDA 


0*A 










SUB#567#7*S 


<63)R 










BNZ 

nr*i in 


*A 




















*B 


























LDA#567#7#S 


CDR 










STA 


T 










LDA 


AREA 










ADD*567*7*S 


$Xi 










LDX*7 $A 












LDA*567*7*S 


t 9 »)R 










STA 


0*7 








*A 


POPA 








■ 


t-» r* 1 trk 


. 






BUG 


*B 






*A 


POPA 


AREA 








LDA 




ADD#567*7*S 


$X1 






LDX*7 $A 








LDA,567#7*S 


C • »)R 






STA 


0*7 




*B 


«-» /** r*»r"» 
















BXE*71 


$+3*1 






ATXH 


<1>R 






BUC 


*A 






POP A 







EXIT 



BUC 
RET 



Figure 3. (Continued) 
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EXPLODEX 








SBR 






STP*567#7 


EXIT 


1 


PSHA 










*B 








LDA,567*7*S 


$X1 




SUB 


AR1 




BOZ 


*A 




BOP 


*A 




ronfcS ' 






*B 










ruro 






LDA*7*0 


>2 




STA 


*1 




LDA*7#1 


>2 




STA 


+ 1*1 




LDA#7#2 


#2 




STA 


+2*1 




LDA#7*3 


>2 




STA 


+3*1 




LDA#7#4 


*2 




STA 


+4*1 




LDA#7#5 


*2 




STA 


+5*1 




LDA>7#6 


*2 




STA 


+6*1 




LDA*7#7 


#2 




STA 


+7*1 




ATX*1 


<+8)R 




ATX>2 


( + 1 >R 




BUG 


*B 


*A 


— POPA 






POPB — 




EXIT 


BUG 
RET 






FIN 







Figure 3* (Continued) 
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3. CONCLUSION 

We have eliminated a major bottle-neck in our research by writing library routines 
of the META compiler in MOL-32 instead of in SCAMP assembly language. Not only 
are routines easier to write and check out, but easier to modify after they get 
cold. 

In Qsmparlng tbt library written in M0L-1£ t© the library written in SQAMF, ve 
noticed that the MOL-32 library took about 15# more space and executed about 
1555 slower than the SCAMP library. This seems reasonable considering the advan- 
tages gained. 

The MOL-32 compiler was written in a version of META called SCAMP META. It took 
one month to program and only one and one-half days to check out. 

The appendix contains (l) a specification of MOL-32 in SCAMP META and (2) the 
library of the META compiler, which serves as an example of a program written 
in the MOL-32* 
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APPENDIX A 



Specification of MOL-32 in SCAMP META 



00100 
00200 
00210 
00300 
00400 
00500 
00600 
00700 
00800 
00900 
01000 
01100 
01200 
01300 
01800 
01900 
02000 
02100 
02200 
02300 
02400 
02500 
026 00 
02700 
02800 
02900 
03000 
03100 
03200 
03300 
03400 
03500 
03600 
03700 
03800 
03900 
0400(; 
04100 
04200 
04300 



-•SYNTAX PROGRAM 
-NUM • • DGT $ DGT 



-NUM1 



NUM 



/#•<• *1 



) ♦ 



t t t t 



-ID . . LET $(LET / DGT > I 
-STRING a QUOTE .(*•(• .L • ) 
-DELETE s .Q(ISIT* CHAR* 0)1 
-ANY a .QCISIT* CHAR* 1) J 
-LET ■ .QCISIT* LETTER* 1) J 
-DGT = .QOSIT* DIGIT* 1) I 
-QUOTE •• +•••• $(-•••• ANY / + 
-SCAMPI .. ID r ' (SI A /-•[') / 

'[• $' ' ID $' ' '1* s $ *l' / S1A I 
-INDX •• '$I 9 **$Xl a / f $J' *'$X2* / 'SK» 

•SL* * , $X4 t / 'SM' j'SXS* / *$N' # , $X6 a 
-SCAMP2 = '.EXIT 1 ^'EXIT' *' #567*7' / 

•C '.EXIT' '3' #'EXIT#I* #'*567*7' / 

SCAMPI PART / (C0NST1/INDX) \»'*567*7#S' 
-S-NUM .. ( + ' + » / +»-•) $• ' NUM l ' 
-CONSTANT • • S-NUM / NUM / QUOTE / 

'#' ID $' • (S-NUM / .EMPTY> % 
-CONST 1 •• #'(' CONSTANT » 
-INDEX * •$!• »' »\ • / *$J' 



/) % 



#'$X3* 

x6 a r 



•)R' i 



•$K' 
•$M' 
-C0NST2 •• 
-S1A = •[• 
•SI • 
•$J' 
•$K' 
•$L' 
•$M' 
•$N' 
S-NUM 



#'#3 8 

S-NUM 
$' 
$• 
$• 
$' 
$' 
$' 
$' 
/ 



/ 
/ 
/ 



»$L 9 
*$N' 



#4* 
#6' 



•+#• ID $' '(S-NUM / .EMPTY) I 



(S-NUM 
(S-NUM 
(S-NUM 
(S-NUM 
(S-NUM 
(S-NUM 
NUMD $' 



* , i0» # , #7#0' / 
t 



#'#7#l 



• .it t 



.4' *S7*4« / ••$• #S7*5 f / 



•EMPTY) 

•EMPTY) 

•EMPTY) 

•EMPTY) 

•EMPTY) 

•EMPTY) 

•3' J 

!• #'*7#r 

1 .1 .fit 



•#1 

•#2 

•*3 

•*4 
t 



#5 
#6 



/ 
/ 
/ 
/ 
/ 
/ 



' .6 8 

f -O » 



* f *7#6« / '.7« * , *7*7» A 
► P' ,«*7*0 e / '.D' # f *'567i3 f 
-'•THEN 9 '.T' #'#7#4 9 / -%Ai' 
• EMPTY >• " • J' ■ 



,A 9 *'*567#7* / 
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APPENDIX A (Cont'd) 



04500 

4700 
0/jppiOI 
<7>/i9W0 
050A0 

r^>5200 
05300 
05400 
05500 
05600 
05700 
05800 
05900 
06000 
06100 
06200 
06300 
06400 
06500 
06600 
06700 
06800 
06900 
07000 
07100 
07200 
07300 
07400 
07500 
07600 
'07700 
07800 
07900 



-EXP * (SCAMPS (-•£•) ♦C> , LDA* *l# *l/> / 



♦ . » 



'{•/'(• >*0*> EXP *3* PART tC^LDA 1 *t* *t SAV) ) $< 



SCAMPg .<# , ADO'' 
SCAMP2 . O'SUB' 
SCAMPS .(^'MUL* 
SCAMPS •<# , LDB*> 
*1* *!/) 
t, 'LDB 1 * 
**DVD' *\» *1 / 
t* C0NST1 •C# , CYA , # 



SCAMPS 



*i# *i/> / 
*1# *l/> / 

*1* *1/ j'STB'* 
•$A* / j'SFCN 
/ 

•$A» / 
^'STB* 
*l/> ) 



•$AV) / 
♦<47>R' / 



^SFC** 



SA 



•C47)R' 



« SCAMP2 



•ASSIGNS? 

CID 'C ' EXP •!• 
•:«••(# f LDX*7 
EXP f l • •(- • 

INDEXST = •** ' •»■• 



• •- • 



: = 



•SL 1 



•SI • 
« .- » 

1 := • 

• ■* 



EXP 'J' 

/ 'C • EXP 
$A 8 */> 

*1 \ 
•$I • CONST 1 



.<# •STA* *1# *l/) / 



•3 



•0') PART 



7* /) $ 



.(# »ATX* 1 S *1 /)/ 



-RELATION = EXP 



•$L f 
«SM t 
•$N* 



CONST 1 
CONST 1 
CONST 1 
CONST 1 
CONST 1 



•;» 



.<*«ATX*2'# *1* /)/ 

.<# f ATX*3N *1 /)/ 

.(, 'ATX>4% *1 /> / 

• C* »ATX*5 V * *1 />/ 

.<* 'ATX#6'* *1 />* 



CONSTANT . O'BXE*' *1> f $+2#A» / * 'BUCS *A /) / 
SCAMP2 •<# , C«L , *1> *1/ ^'BUC'i *A/J/ 



* = rr * 

•=/*• CONSTANT . O'BXE*' *l* *A 9 iPi 
«*/=• SCAMP2 .(# , CrtU t *i# *1/ * '8UC 
•»» SCAMP2 tO'SUB' *\» ♦!/ 



V« 



SCAMP2 
SCAMPS 



.(# 'SUB* 
<# 'SUB' 



*1# 
*1# 



♦ 1/ 



# 'BOZ'* 



/) / 

$+2' 
*A/> / 
*A/) 



/ » 'BUC* *A/> / 



t'BOZS" *A / 



>• SCAMPS • <# , SUB ,, *W 



*1 / -#'BOZ 9 » 



,»BOP f # *A/) / 
*A / # f BNP f #*A/ ) / 



•"•BOP 1 * *A/> / 



•<«• SCAMP2 -C#'SU8' *1# *1 / 

•>«• SCAMP2 •C* , SUB' *t# *1 / # f B0Z*S+8'/ 
•BASIC* RELATION / •(• BOOLEAN •>• I* 
FACTOR ■ BASIC SC'.A. • BASIC) I V ' 
•BOOLEAN sb FACTOR iC+B5 

$(*.V«' • C*'BUC'# *B/ *A/ -A+A) FACTOR) 

• C*B /*-B) I 



«'BNP'* *A/> )1 
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08000-FORST a •♦FOR' INDEX ••FROM* CONST 1 '*' 

08100- .O'LDX' +*2# *\/ ♦A+A/J S ST ••"END 1 

08200- ♦<*'BPX#'r **A *l/-A>/ 

08300- '.FOR' INDEX ••FROM' EXP ':' 

08400- iC + Bf'BXL*^* #*B SA' /'# f SUB (0)RV # 'LDX • + *W '$AV 

08500- + A*A /> $ ST '.END' .O'BPXilS *A *l/~-A*B/ -B>/ 

08600- , .FOR t INDEX ' .TO • "CONSTANT ':' 

08700- iO'LDX' + *2* '<0JR' / +A*A/> $"ST '•END' 

08800- .O'BXE*' *1* '$+3' + *1 / » 'ATX* *l> 'CDR; / 

08900- #'BUC'# *A/ -A)/' 

09000- 'iFOR'INDEX '.TO' EXP '«' 

09100- i<+B# " 'BXL#-0'# *B SA' / #'SUB <0>R' / 

09200- #'STA#S67#3S *B '-3' / » 'LDX ' + *1# '<-0>R' / +A *A/> 

09300- $"ST '.END'.O'BXE^S *B **i / *'AtX' *li , Cl)R , i / 

09400- # 'BUC # *A / -A *B / -B> I " " " . * 

09500-LOOPST"= SLOOP' 'WHILE* •(♦A +B *B/) BOOLEAN 'i' 

09600- S ST" '•END 1 ;<#'BUC'/*B/ *A/ -A -B)J 

09700-IFST a '.IF' .<*A> BOOLEAN ••THEN' $ ST 

09800" C'iELSE' .<+B# 'BUC'**B~/ *A / -A) 

09900- SST '.END 9 .<*B / -B> / 

10000- '.END' .<*A / -A) > l 

10100-ERRORST = •.ERROR" 'UNLESS' .(+A) BOOLEAN '*• 

10200- .< + B# ' 'BUC '# *8 / *A# 'BUC SPEAK'/) 

10300- STRING 'l ' ".(-A *B / -B) I 

10400-CALLST » ID '(' .O'BUCS *1 /) 

10500- (ARG $<%' ARGJ / iEMPTY) ')' '1*1 

10600-ARG a STRING /CONSTANT .<#•<• *l'5'V> 1 

10700-PUSHST » '.PUSH' INDEX S ' NUM 'l ' 

10800- .C*'ATX' + *2* '(-' *i ')R' / >'BMX*0 PUSHER 9 *l/> I 

10900-POPST ■ '.POP' INDEX S ' NUM '*' 

11000- .(#'ATX'+*2* '<'*1 ')RV) .FCPOP) I 

11100-GOST a '.G0'"SCAMP2 .FCPOPJ . (# 'BUCS * 1/) '* * /■ 

11200- '.GO' EXP .<*'BUC 0»AV) •{• J 

11300-LABEL = ID C- t l* , >" t S t .<*l/> I 

11400-MACHINEST •• SC-'|» ANY ) 'i • * 

11500-MACHINE-CODE « »< ' SCLABEL / - '> * 

11600- MACHINEST iC*"*!/)) '>' J 

11700-ST a FORST / LOOPST / IFST"/ PUSHST / POPST /. 

11800- GOST / MACHINE-CODE / ERRORST / 

11900- LABEL / INDEXST / CALL ST / ASSI6NST J 
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12000 
12100 
12200 
12300 
12400 
12 500 
12600 
12700 

I27iy 

12 800 
12900 

13'''Mtf 
1301*3 
13100 
13200 
13300 



DATA = 
1 



10 

_ t 



•C*l/> 
:=• (DATAl 
iEMPTY •<* 
•#• ID '=• 
-DATAl = "CONST I 
-DECLARATION = • 
-PROCEDURE = ID 
CLOCAL' 
• <*A /-A) 

ascsT / -•• 



c •<• 



DATAi)')'> 

» 'EQU 



*l/> 
/ 



*l/> I 



CONSTANT •)' 

DATAl $<•;•" 
•BLK !•/))/ ' 
*.<*l/> CONSTANT • < 
•<#*l/>! 

•DECLARE • DATA i(',' DATA) *i* I 
•():' .(*!/ » *SBR* "/ •# *STP> 567*7 
.<+A, *8UC***A/) DATA $<*** DATA) 
/ .EMPTY) 



> *EXITV> 



RETURN* ERROR 
$(-'. RETURN* DELETE)) 
' .RETURN* ( *C * EXP *3 * / 
i< 'EXIT* * *BUC* / » *RET* 



•EMPTY) 

/) ; 



-PROGRAM = C * .PRIMITIVE* ID .(/'BUG** *1/#*BUC 195'/) / 



-.END 



• EMPTY) $ (PROCEDURE/DECLARATION) *.STOP 8 «C*'FINV) i 
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Library of the MBTA Compiler Written in MOL-32 

001 00-. DECLARE #STARL » 1000* STARC #STARL)# 

00200- fSTACKL * 400* STACKC #STACKL) * 

00300- . #INL1 * 73, #INL2 » 146* INBUF< #INL2 > * 

00400- #INPLACE = #INBUF ♦ 73* INCOUNT* I NX* MAXIMUM* 

00500- #0UTL1 » 73* #0UTL2 » 146* OUTBUFC #0UTL2)* 

00600- ^OUTPLACE » 0OUTBUF ♦ 73* OUTCOUNT, OUTX* 

00700- SIGNAL* TOKENDEPTH* TKC#INLH-1>* 

00S00- XPLBUFC#INL1>* ERBUF(iHNLl>* 

00900- AR1* AR2* AR3* VL1* VL2* VL3* Tl* T2* T3* 

01000- #ATOM a 1* P1INPC512)* P10UTC512)* 

01 100- BLANKS 1* • % 
01200- IUNIT* 0UN1T* TTY 5= 'TTY 8 * 
01300- FIELD* C0UNT1, C0UNT2* 

01400- S0URCE8»< 'META 18TNSTAT00MO VE 66S0URCE INPUT 4 
01500- 512* •DISCIX1 S0)i 

01600- PRGRM8=< 'META 18TNSTAT00MO VE 66PRGRM 0UTPUT4 NUMWDS1 • 

01700- *512* •DISCIX1 ',0)i 

01800- PERM 8=<'META 1 7TNSTAT00INNAME66 INSERT66PRGRM •* 

01900- 'NUMWDSl S 0)* 

02000- OLINE* ILINE* LETTER 8» 2* DIGIT 8* 12* CHAR t» 11 

02100-SPEAKO! .LOCAL T# BUF<10>* LFCR t* 03277000000000000* 

02200- MESG larC'META I 6TNSTAT00MOVE 66TELTYP OUTPUT 4 COREIXl •* 

02300- *BUF)1 

02400- T t» C .EXIT3-1/R+11 

02 500- .FOR SI .FROM T- 1 l 

02600- BUFCSI3 I* C.EXIT+USI3J .END 

02700- BUFCT3 fa LFCRl 

02R00- <LDA (MESG)Rl BUG 2021 > 

02900- .EXIT J» .EXIT + T + \l 

03000- .RETURN 

03100-TTYINOs .LOCAL BUF<10>* AREA* T* 

03200- ITLTY s=C«META 1 6TNSTAT00MOVE 66TELTYP INPUT 4 COREIXl 9 * 

03300- #BUF)1 

03400- AREA 8 = C.EXIT3J .EXIT 8= .EXIT+ll 

03500- SPEAKC* 4 )* <LDA (ITLTY)Rj BUG 2021 » 

03 600- $1 8= AREA! $J J ■ #BUFl 

03700- AR1 8= AREA + 721 EXPLODEXOl T S= 01 

03800- .FOR SI .TO 718 

03900- .IF T = 

04000- .THEN .IF C AREA* SI 3 ■ 63 

04100- .THEN T 8= 11 CAREA+SI3 t« * 9 1 .END 

04200- .ELSE CAR EA+ $13 s« 9 »1 .END .END' * 

04300- .RETURN ' * 
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66TELTYP OUTPUT* COREIX!'* 



•EXIT :« .EXIT+Il 



+ $13 
END 



$1 >» 0* 



032) 

• END 
ARl 

« » * 

• END 



S* AREA+721 COMPRESSXOI 



04400-TTYOUTO8 .LOCAL BUF<10)# AREA# I# 

04500" QTLTY t*C 'META 1 6TN5TAT00MO VE 

04600- #BUF)I 

04700- AREA 8* C.EXIT3I 

04800- $1 J» 711 

04900- .LOOP WHILE CAREA 

05000- $1 8* $1-11 

05100- I 8* $11 

05200- .IF I < 70 

05300- .THENCI+AREA+13 J» 

05400- CI+AREA+23 1= 077i 

05500- $1 I* AREA! $J 8 = #BUFl 

05600- .IF I < 70 

05700- .THENCI+AREA+U * = 

05800- CI+AREA+Sii 8= 9 •* 

05900- <LDA (OTLTY)Rl BUG 202)> 

06000- .RETURN 

06100-READOt .LOCAL AREA* FILEl 

06?00- FILE := CEXITJl AREA 8 * C.EXIT+Ul 

06300- .IF P1INPCILINE-1 ].7 /= 26 

06400- .THEN .ERROR UNLESS PI INPC ILINE- U . 7 

06500- »EOF READ'1 ILINE 8 = 0J 

06600- <LDA FILEl BUC 202l> 

06700- .ERROR UNLESS SOURCEC 13 . 7 =3s 'BAD READ f l 

06800- SOURCEC83 8= SOURCEC83 + U 

06900- .LOOP WHILE P1INPC93.7 = 61 8 

07000- <LDA FILEl BUC 202l> 

07100- .ERROR UNLESS SOURCEC13.7 

07200- SOURCEC83 t» SOURCEC83 + 1J 

07300- $1 is AREAl $J 8a ILINE-MPlINPl 

07400- ARt ta AREA+#INL1-1I EXPLODEXOJ 

07500- ILINE S« ILINE+101 

07600- .RETURN 



.EXIT 



•EXIT+2J 



/» 63! 



■ 38 'BAD READ'I 
•END ".END 
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07700- 

07800' 

07900« 
08000- 
08100- 
08200- 
08300- 
08400- 
08500- 
08600- 
08700- 
08800- 
08900- 
09000- 
09100- 
09200- 
09300- 
09400- 
09 500- 
09 600- 
09700- 
09800- 
09900- 
10000- 
10100- 
10200- 
10300- 
10400- 
10500- 
10600- 
10700- 
10800' 
10900- 
11000< 
11100- 



WRITEOt .LOCAL AREA* FILE* T, 

MORE i^'META 1 STNSTAT00MODIFY66PR6RM NUMWDS1 '• #4096)1 
FILE 8* C.EXIT3! AREA t= C«EXlT+13l .EXIT 1* .EXIT+21 
• IF OLINE =« 510 

•THEN .IF PRGRMC83+1N8 =0 

.THEN MOREC33 8 = CFILE+331 
MOREC53 8 = MOR EC 5 3 + 409 61 
<LDA (MORE)Rl BUC 2021 > 
• ERROR UNLESS MOREC13.7 » 38 
•NO MORE DISC SPACE'! .END 
Tl 8* C0UNT2 * 100! 
P1OUTC5103 I* COUNTl*100t24+TU 
P10UTC5113.3 t» C0UNT2-C0UNT1 + 1! 
<LDA FILE! BUC 2021* C0UNT1 8* C0UNT2 ♦ l! 
•ERROR UNLESS PRGRMC13.7 » 38 'BAD WRITE 1 ! 
OLINE 8» 0! PR6RMC83 8» PRGRMC83 + U ,END 
$1 t» AREA! $J !« 0LINE+#P10UT| 
AR1 !» AREA+#0UTL1-11 COMPRESSXO! 



C0UNT2 8 = C0UNT2 
P10UTCOLINE+93.4 
PlOUTCOLINE+93.3 
P10UTC0LINE+93.2 
PlOUTCOLINE+93.1 
OLINE 8 = OLINE * 
.RETURN 
I0NAMESO8 .LOCAL 
•FOR $1 .FROM 

VCSI3 t» 
.ERROR UNLESS 
•FOR SI .FROM 

VCSI3 ta 
POPO! 
VL1.0 8 



+ 1! 

8* COUNT2M01 



T ts COUNT2/10! 



l» T\10! 
fa TM01 
8* TM0J. ■ 
10! 



T »a T/101 
T 8» T/10! 



V<6)1 
58 



1 .END 
STARCSM3.A «» 
STARCSM3.A-18 
STARC$M+$I + 13l 
VLt 8 = BLANKS! 
VC031 VL1.1 8* 



68 'LONG NAME 9 ! 



END 



VC131 VL1.2 



V/L1.3 «« 
• RETURN 



VC33! VL1.4 t« VC43! VL 1 



j« VC23! 
5 is VC53! 
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1 1200-INITlALIZEOt .LOCAL 

11300- ODISCFt»< 'META 19TNSTAT00FILE 66PRGRM UNIT 0« V 

11400- •FORM 5CINL0C 1 % *P10UT# 'NUMWDS1 •# 4096># 

11500- IDISCFt=( 'META 1 7TNSTAT00REFILE66 ' RENAME66V 

11600- 'SOURCE INLOC tS#PlINP)l 

1 1700- .FOR $1 .FROM 71: 

11800- ' ERBUFCSI3 !» • f l .END 

11900- TOKENDEPTH J* 01 TK »» 01 

15000- SM-S» 0STARLJ $N I* #STACKL-1J <LDI#070000 <6>Rl> 

15100- INCOUNT js 0| MAXIMUM t ■ 01 

15200- OUTCOUNT * = 0| OUTX i=ll SIGNAL I* .EXITJ 

15300- $1 t= 01 

15400- .FOR $1 .FROM 0OUTL2-1* 

15500- OUTBUFCSI3 t ■ ■ • »j .END 

15600- FIELD t=» 0J 

15700- INBUFC#INL1-13 t= 077J INBUFC 0INL2-1 3 t= 0771 

15800- IUNIT ?= TTYJ INBUFC 0INL5-2 3 :* • 'J 

15900- INX J= #INL2-2J SPEAKC'INPUT OUTPUT')! 

13000- IDO) IDOJ 

13100- IONAMESOJ OUNIT *a VLU 

13500- .IF OUNIT a/* TTY 

13300- .THEN PERMC33 fa OUNITl OLINE t* 01 

13400- <LDA (ODISCF)RI BUC 2021 > 

13 500- PRGRMC8 3 t« 01 COUNT 1 t» II C0UNT2 t» 01 

13600- P10UTC5U3 J« 511 l 

13700- .LOOP WHILE $1 < 5108 

13800- P10UTCSI+93 {s 0321 

13900- $1 t a SI + 101 .END .END 

14000- P1OUTC5093 t* 0761 

14100- IONAMESOJ IUNIT t» VLU 

14500- .IF IUNIT a/a TTY 

14300- .THEN IDISCFC33 *a IUNITJ 

14400- <LDA (IDISCF)RJ BUC 202j> 

14500- SOURCEC83 s a 0j 

14600- ILINE ?a 101 PHNPC93 *» 076J .END 

14700- • RETURN 
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14300- 
1 4QO\0\. 

\ 5000- 
15100- 
1 52 r - 
15300- 
15400- 
15500- 
15600- 
1 5700 
1 5300' 
1 5900' 
16000 
16100 
16900' 
16300 
I 6400 
16500 
1 6 600 
16700 
16100' 
1 69 00 
1 7000. 
17100' 

1 7? 00 

17300' 
1 7400' 
1 7 500 
1 7600. 
17 700. 
1. 7300- 
1 7900- 
13000- 
1*100. 
13200- 
13300- 
13400- 
13500- 
13600- 
13700- 



COMPLETEO: 

•IF OUTX 



T 



I 



> 
.THEN 

OUTX > 
• THEN 

O'JMIT 





CARDOI 
0OUTL1* 
CARDOI 
= /a TTY 



END 



END 



• THEN P10UTCOLINE-13.7 S= 63) 
Tl := COUNTS* 1001 

P1OUTC5103 != COUNTl*100t24+Tll' ■ 
PIOUTC5113.3 := C0UNT2-C0UNT1 + 1 1 
<LDA (PRGRM)R) BUC 2021 > 

• ERROR UNLESS PRGRMC13.7 a 3l '3AD WRITE') 
PERMC73 fa PRGRMCB3 .* V * 5121 

<LDA (PERM)Rl BUC 202)> 
•ERROR UNLESS PRGRMC13.7 ■ 3t 
•REDUNDANT OUTPUT NAME'! .END 

•ERROR UNLESS SIGNAL /» 01 'ILLEGAL PROGRAM 1 ) 

•RETURN 



NXTCHRC >8 
I NX 
• IF 



a INX+li 

NX >» #INL2 
• THEN .FOR SI 
IN8UFCSI3 
s= #INLU 
IUNIT a/* 



NX 
IF 



•FROM #INLI-2s 
s= IN8UFCSI+0INL13) 
INCO'JNT ?a INCOUNT+ 

TTY 



• END 
#INLll 



• THEN READ(#SOURCE* #JNPLACE)I 
•ELSE TTYIN(#INPLACE)J .END .END 



•RETURN 
EXPLODEXO! 

•LOOP WHILE: SI < AR 1 
C$13 ja [ $J].0i 



CSI+13 
C SI+23 
CSI+33 
CSI + 43 
CSI + 53 
C SI + 63 
CSI + 73 



1 = 

• mm 

j = 

• — 
8a 



CSJ3.U 
CSJ3.2) 
C$J3,3) 
CSJ3.4) 
C S J 3.5) 
CSJ3.6) 
CSJ3.7) 



I .:» $1+3) 



• RETURN 



■I«$J+1J .END 
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1RR00-COMPRESSXO : 




18900- 


•LOOP WHILE $1 < ARl! 




19000- 


C$J3.0 t* C$131 




19100- 


CSJ3.1 l= CSI+131 




19200- 


CSJ3.2 s= CSI+23J 




19300- 


CSJ3.3 := C$I + 33J 




19400- 


CSJ3.4 J= CSI+431 




19500- 


t$J3«5 ja CSI + 531 




19600- 


t$J3.6 is C $1 + 631 




19700- 


CSJ3.7 }s C$I + 73l 




19300- 


$1 t= $1+81 $J t« $J+1J .END 




19900- 


•RETURN 




20000-ERRORO: .LOCAL A J 




20100- 


TTYOUT(#INPLACE)l 




20200- 


•IF INCOUNT + INX > MAXIMUM 




20300- 


•THEN MAXIMUM J= INCOUNT ♦ I NXJ 


•END 


20400- 


A :e MAXIMUM - INCOUNT - #INL1J 




20500- 


ERBUFCA3 t= •t*! 




20600- 


TTYOUT(#ERBUF)l ERBUFCA3 := • »j 




20 700- 


•RETURN 




20800-PUSHERO J 




20900- 


•ERROR UNLESS 1 » : 'OUT OF PUSHDOWN LI$T*| 


21000- 


•RETURN 




2 1 1 00 - ] 


ISITO: .LOCAL X* CONVERT ? = ( 




21200- 


9» 9* 9» 9* 9* 9* 9» 9* 




21300- 


5* 5* 33* 1* 1* 33* 33* 33* 




21400- 


1 * 3* 3* 3* 3* 3* 3* 3* > 




21500- 


3* 3* 33* 1* 1* 33* 33* 33* 




21600- 


1* 3* 3* 3* 3* 3* 3* 3* 




21700- 


3* 3* 33* 1* 1* 33* 33* 33* 




2 1800- 


17* 1* 3* 3* 3* 3* 3* 3* 




21900- 


3* 3* 33* 1* 1* 33* 33* 33 >! 




22000- 


AR1 := CCEXIT33J AR2 != t-EXlT + 131 


•EXIT 8= .EXIT +Z> 


22 100- 


X != CONV/ERTCINBUFCINX3 3* <ANA ARU 


STF SI6NALl> 


22200- 


•IF SIGNAL /= 




2300- 


•THEN .IF AR2 /= 




22400- 


•THEN TK 8= TK+ll 




22 500- 


•ERROR UNLESS TK < #INL1 8 


•LONG TOKENS 


22600- 


TKCTK3 := INBLFCINX3* 




22700- 


•IF TOKENDEPTH =0 




22800- 


• THEN MAKETOKENOl •! 


END »END 


22900- 


NXTCHROJ •END 




23000- 


•RETURN 
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8 .V* INBUFUNX3 « 638 



INSERTXOJ 



23100-EXPLODEO 8 .LOCAL Tl 

23200- VL1 := CAR13J VL2 is VLl - 1 / 8 +21 

23300- $J 8 = 01 

23400- «FOR SI .TO VL2 - 2 J 

23500- T 8= CARS + $1 ♦ 13* 

23600- XPLBUFCSJ3 8 = T»0J 

23700- XPLBUFCSJ + 13 1= T«1J. 

23800- XPLBUFt$J+23 8= T.2J 

23900- XPLBUFCSJ+3 3 8= T.3J 

24000- XPLBUFCSJ+43 8= T.4* 

24100- XPL8UFt$J+53 8= T .5* 

24200- XPLBUFCSJ+6 3 8 = T *6 I 

24300- XPLBUFCSJ+73 Js T.7* 

24400- $J 8= $J + 81 *END 

24500- .RETURN 

24600-SKIPBLANKSC ) 8 

24700- .LOOP WHILE INBUFUNX3 s * 

24800- NXTCHRO! .END 

24900- .RETURN 

25000-INSERTO8 

25100- AR1 8= .EXIT! 

25200- EXPLODEOJ .EXIT 8= .EXIT + VL23 

25300- .RETURN 

25400-1 NSERTXC) 8 

25500- .ERROR UNLESS TK+VLl < #INLl8 'LONG TOKEN 9 ! 

25600- .FOR SI .FROM VLl -18 

25700- TKC$I + TK + 13 S« XPLBIF£$I3J .END 

25800- • TK 8= TK + VLl J 

25900- .IF TOKENDEPTH =0 

26000- .THEN MAKETOKENOl .END 

26 100- .RETURN 

26200-MAKETOKENC ) 8 

26300- SM 8= $M - 1 - TKl .ERROR UNLESS $M '■> 8 'FULL STACK 9 % 

26400- STARCSMJ.D js TK + '1J 

26500- STARCSM3.A 8= TK* 

26600- STARCSM3.P 8= #ATOM| 

26700- .FOR $1 .FROM TK - 1 8 

26800- STARC$M'+$I + 1 J ' S« <TKC$I '+'- 1 3 J 

26 900- TK 8= 01 

27000- .RETURN 

27100-COMPO 8 

27200- AR1 8« .EXIT* AR2 8= II COMPARE*)* 

27300- .RETURN. ^ 

27400-COMPSO 8 

•27500- AR1 8= .EXITI AR2 8= 21. COMPAREO* 

27600- .RETURN 

27700-NCOMPO8 

■27800- AR1 8= .EXITS AR2 8= 31 COMPAREO* 

27900- .RETURN 



.END 

• EXIT r» VL2I 

•EXIT 8= VL2J 

.EXIT 8* VL2H 
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28000' 

'28100 

28200 

28300 

28400' 

28500' 

28600' 

28700 

28800 

28900 

29000' 

29100 

29200 

29300' 

29400' 

29500' 

29600 

29700- 

29800 

29900 

30000- 

30100' 

30200 

30300' 

30400' 

30500' 

30600- 

30700- 

30800- 

30900- 

31000- 

31 100- 

31200 

31300- 

31400- 

3 1 500 

31600 

31700- 

31800' 

31900' 

32000- 

32100- 

32200' 

32300' 

32400 

32500 

32600 

32700 



v APPENDIX B (Cont'd) 

COMPAREO: •LOCAL TYPE* Ll 

TYPE := AR21 L :* CAR13J 
EXPLODEOJ VL2 1= VL2 + AR1J 
•IF TOKENDEPTH a 

•THEN SKIPBLANKSOJ *END 
SIGNAL 1= .EXIT! 
•FOR SI .FROM L-l 8 

• IF INBUFCINX + S13 /« XPLBUFCS13 

• THEN SIGNAL t* 01 , »END tEND 
TYPE s 3 
•THEN «1F SIGNAL /» 

•THEN SIGNAL J* 01 

•ELSE SIGNAL t* •EXIT! *END 

• ELSE •IF TYPE a 2 «A • SIGNAL •« 



IF 



• END 



IF 



* LJ *END .END 



END 



- 1 J 



• THEN INSERTXOJ 
SIGNAL /a 
•THEN INX 8* INX 

• RETURN 
■MARKO8 

•IF TOKENDEPTH a 

• THEN SKIPBLANKSOJ 
TOKENDEPTH 8= TOKENDEPTH + 

• RETURN 
TOKEN* ) 8 

TOKENDEPTH 8= TOKENDEPTH 

•IF TOKENDEPTH a .A. SIGNAL /« 

• THEN MAKETOKENO* .END 
•RETURN 

SAVEOs 

•PUSH $N, 31 

STACKCSN+1 3.D 

STACKCSN+1 3. A 

STACKCSN+23 .A 

STACK£$N+2 3«D 

STACKCSN+33 8' 

•RETURN 
■BACKUPOs 

•IF INCOUNT ♦ INX > MAXIMUM 

•THEN MAXIMUM 8= INCOUNT + 

INX 8= STACKCSN+1 3. D - INCOUNT! 

OUTX 8= STACKCSN+1 3 .A - OUTCOUNT* 

SM 8= STACKCSN+23 »AJ 

TK 8= STACKCSN+2 3.DI TOKENDEPTH I* STACKCSN+33* 

•ERROR UNLESS < INX *A* < 0UTX8 'EXCESSIVE BACKUP •* 

•RETURN 
•RSTOROs 

•POP $N*3* 

•RETURN 



= INCOUNT + INX* 
= OUTCOUNT + OUTXI 

a $M| 
a TKJ 

TOKENDEPTHl 



I NX I 



END 
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39800 

32900' 

33000 

33100' 

33200' 

33300 

33400' 

33500' 

33600' 

33700 

33800' 

33900' 

34000 

34100 

34200 

34300 

34400 

34500' 

34600 

34700 

34800 

34v .^. 

35000' 

35100 

35200 

35300 

3 5400 

35500 

3 56 00 

35700 

3 5B00' 

3590fl' 

36000 

36 100' 

36200 

36300' 

36400' 



■CARDO : 

FIELD 8 = 01 
• IF #0UTL1 < OUTX 

.THEN .IF OUNIT =/= TTY 

• THEN WRITEC#PRGRM, #OUTBUF>J 
•ELSE TTYOUT(#OUTBUF)| .END 
OUTCOUNT 8« OUTCOUNT ♦ #OUTLll 
• FOR $1 .FROM 0OUTL1 - 1* 

OUTBUFCSU ts OUTBUFCSI ♦ #OUTU31 
OUTBUFCSI + #0UTL!3 I* ' ' J »END tEND 



<0# 1» 23* 47)* #N « 41 



8= .EXIT + VL2I 



OUTX *« 0OUTL1 ♦ II 

•RETURN 
•TABC>« .LOCAL TABCOL ! = 

FIELD 8= FIELD + II 

.ERROR UNLESS FIELD < #N % V TAB ERROR 9 JJ 

Tl := OUTX \ #OUTLl I 

OUTX 8= TABCOLCF1ELD3 + OUTX - Til 

•RETURN 
•OUTSTGO: 

AR1 t- .EXIT* EXPLODEOl .EXIT 

Tl := OUTX + VLl -1 • #OUTLl i 

• 1H OUTX * 1 / #OUTLl /= Tl 

• THEN CARDO S .END 

• FOR $1 .FROM VLl - 1 8 

OUTBUFCSI + 0UTX3 8= XPLBlF C$131 .END 
OUTX 8= OUTX + VLl J 
•RETURN 
■0UTT0KENO: .LOCAL Ll 
L 8= CAR1 ] .AJ 

• ERROR UNLESS tARl 3 .P = #ATOMs 
Tl 8= OUTX ♦ L - 1 / #OUTLll 
•IF OUTX - 1 / #OUTLl /* Tl 

• THEN CARDO I *END 
•FOR SI »FROM L - 18 

OUTBUFCSI '+ 0UTX3 8« CAR1 
OUTX 8 a OUTX + Ll 
•RETURN 



NOT A TOKEN' I 



* 1 * $131 oEND 
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Mil 



36500-LENGTHO 8 .LOCAL Ll 

36600- L 8 = STARCSM3 .A-21 

36700- .FOR $1 .FROM L-l: 

36800- .IF STARCSM+2+SI3 = 

36900- .THEN L 8= L-ll $1 8* $1-11 .END «END 

37000- .IF L > 9 

37100- .THEN Tl 8 = OUTX + 1 / #0UTL1J 

37200- .IF OUTX-1 V #OUTLl /s Tl 

37300- .THEN CARDOl .END 

37400- 0UTBUFC0UTX3 8= L / 101 

37500- OUTBUF [OUTX+1 3 8 = L \ 101 

37600- OUTX 8 = OUTX +2$ 

37700- .ELSE Tl 8= OUTX / 0OUTL1I 

37800- .IF OUTX-1 / #0UTL1 /= Tl 

37900- .THEN CARDOl .END 

38000- 0UTBUFC0UTX3 8* L \ 101 

38100- OUTX 8= OUTX + 11 .END 

38200- .RETURN 

3B300-STAR1PC): 

38400- AR1 8= #STAR + SMI OUTTOKENOl 

38500- .RETURN 

38600-STAR2PO 8 

38700- AR1 }s #STAR 4 $M 4 STARCSM3.DI 

38800- .RETURN 

38900-STAR1O8 

39000- STARlPOl POPOl 

39100- .RETURN 

39200 -POP O J 

39300- $M 8= $M ■► STARCSM3.D1 

39400- .RETURN 

39500 -.STOP 



OUTTOKENOl 
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